home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0562 / DISK0562.ZIP / SOFT4HAM.ARC / LOGSEND.2 < prev    next >
Text File  |  1985-09-28  |  3KB  |  70 lines
  1. 10 REM LOGSEND 841102
  2. 20 ERRSET 630,E1,E2
  3. 40 REM (C) COPYRIGHT JOE KASSER G3ZCZ 1984
  4. 50 GOSUB 5010
  5. 60 GOSUB 5050 \ REM GET DATA FILE NAME
  6. 70 GOSUB 5040 \ REM GET OUTPUT DEVICE
  7. 320 OPEN #1,L1$
  8. 330 FOR I=1 TO N\REM LOG SHOULD HAVE LESS THAN 800 LINES
  9. 340 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  10. 350 IF I<>400 THEN 470
  11. 355 PRINT#ACHR$(26)\REM EOF
  12. 360 PRINT "RESET OSBORNE AND TYPE ANY CARACTER"
  13. 370 INPUT J$
  14. 470 GOSUB 5020 \REM PRINT LINE OF DATA
  15. 480 NEXT
  16. 490 CLOSE#1
  17. 605 GOTO 5045
  18. 610 PRINT"LOG BOOK IS EMPTY "
  19. 620 GOTO 605
  20. 630 ERRSET 630,E1,E2
  21. 640 IFE2=15THEN605
  22. 670 IF E1<>5560 THEN680 ELSE IF I>4 THEN 5570 ELSE 5565
  23. 680 IF E1<>5650 THEN 690 ELSE IF I>4 THEN 5670 ELSE 5660
  24. 690 IFE2<>8THEN 700 ELSE PRINT"HARD DISC ERROR"\GOTO605
  25. 700 IFE2<>7THEN 710 ELSE  PRINT"FILE ERROR"\GOTO605
  26. 710 PRINT"ERROR ",E2," AT LINE ",E1\GOTO605
  27. 5000 REM SUBROUTINE PACKAGE VER 790908
  28. 5010 GOTO 5060 \ REM SET UP VARIABLES & CONSTANTS
  29. 5020 GOTO 5110 \ REM PRINT LINE OF DATA
  30. 5040 GOTO 5230 \ DETERMINE OUTPUT DEVICE
  31. 5045 PRINT#A CHR$(26)
  32. 5046 STOP
  33. 5050 GOTO 5260 \ REM DETERMINE NAME OF LOG FILE & GET N
  34. 5060 DIMX$(64),D$(16) \ P1=66\P2=1
  35. 5065 DIMM1$(36)\M1$="JanFebMarAprMayJunJulAugSepOctNovDec"
  36. 5070 T0 = 9 \ T1=T0+ 4 \ T2= T1+ 3 \ T3 = T2 +3
  37. 5075 T4=T3+10\T5=T4+10\T6=T5+4\T7=T6+5\T8=T7+4\T9=T8+6
  38. 5080 DEF FNT$(V)
  39. 5085 V1=INT(V/1000)\V2=INT((V-V1*1000)/100)
  40. 5090 V3=INT((V-V1*1000-V2*100)/10)\V4=INT(V-V1*1000-V2*100-V3*10)
  41. 5095 RETURN CHR$(48+V1)+CHR$(48+V2)+CHR$(48+V3)+CHR$(48+V4)
  42. 5096 FNEND
  43. 5100 RETURN
  44. 5110 D1$=FNT$(D1) \ D2$=FNT$(D2)\D3$=FNT$(D3)
  45. 5111 D3$=D3$(3,4)\D2$="/"+D2$(3,4)\D1$="/"+D1$(3,4)
  46. 5113 D$=D3$+D2$+D1$
  47. 5114 PRINT#A, D$,",",
  48. 5115 T$=FNT$(T)
  49. 5116 S$=FNT$(S)\R$=FNT$(R)\S$=S$(3,4)\R$=R$(3,4)
  50. 5120 PRINT #A,T$,",",F,",",C$,",",S$,",",
  51. 5130 PRINT #A,R$,",",M$,",",P,",",
  52. 5140 IF Q1=1 THEN PRINT#A,"S", ELSE PRINT#A,"-",\PRINT#A,",",
  53. 5150 IF Q2=1 THEN PRINT#A,"R", ELSE PRINT#A,"-",
  54. 5155 PRINT #A,",",X$
  55. 5170 RETURN
  56. 5230 INPUT"Which output device (0-7) ? ",A
  57. 5240 IF A>7 OR A<0 THEN 5230
  58. 5250 RETURN
  59. 5260 INPUT"What is the name of the log file ? ",L$\IFL$=""THEN5260
  60. 5270 INPUT"Which drive is it on ? ",D$\IFD$=""THEN 5270
  61. 5275 IF LEN(D$)>1THEN5270
  62. 5310 L1$=L$+","+D$ \ REM LOG FILE
  63. 5320 L2$="*"+L$+","+D$
  64. 5325 IF FILE(L1$)=3 THEN 5327 ELSEPRINT"LOG FILE IS NOT ON DISC"\GOTO5045
  65. 5327 IF FILE(L2$)=3 THEN 5330 ELSEPRINT"LOG POINTER FILE ERROR"\GOTO 5045
  66. 5330 OPEN#2,L2$
  67. 5340 READ#2,N
  68. 5350 CLOSE#2
  69. 5360 RETURN
  70.